VERSION 5.00
Begin VB.Form frmPrincipal 
   Caption         =   "Form1"
   ClientHeight    =   5055
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   8325
   LinkTopic       =   "Form1"
   ScaleHeight     =   5055
   ScaleWidth      =   8325
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdTraspasoCliente 
      Caption         =   "cliente - pagador"
      Height          =   615
      Left            =   1200
      TabIndex        =   0
      Top             =   1080
      Width           =   1215
   End
End
Attribute VB_Name = "frmPrincipal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public conVieja As ADODB.Connection
'Public rsVieja As New adodb.Recordset
Public conNueva As ADODB.Connection
'Public rsNueva As New adodb.Recordset



Private Sub pasaDatos()

End Sub


Private Sub cliente()

    Dim rsCliente As New ADODB.Recordset
    Dim rsPagador As New ADODB.Recordset
    Dim rsGarante As New ADODB.Recordset
    Dim rsConsorcio As New ADODB.Recordset
    Dim rsTelefonos As New ADODB.Recordset
    'Dim rsDocumento As New ADODB.Recordset
    Dim rsConsorcioPagador As New ADODB.Recordset
    Dim rsGarantePagador As New ADODB.Recordset
    
    Dim idPagador As Integer
    Dim idGarante As Integer
    Dim idConsorcio As Integer
    
    rsCliente.ActiveConnection = conVieja
    rsCliente.Open "select * from jlclient"
    rsCliente.MoveFirst
    

    
    'rsTelefonos.ActiveConnection = conNueva
    'rsTelefonos.CursorType = adOpenKeyset
    rsTelefonos.Open "select * from PersonasTelefono", conNueva, adOpenKeyset, adLockOptimistic
    
    'rsDocumento.ActiveConnection = conNueva
    'rsDocumento.Open "select * from TipoDocumento"
    
    'rsConsorcioPagador.ActiveConnection = conNueva
    'rsConsorcioPagador.CursorType = adOpenKeyset
    rsConsorcioPagador.Open "Select * from consorcioPagador", conNueva, adOpenKeyset, adLockOptimistic
    
    'rsGarantePagador.ActiveConnection = conNueva
    'rsGarantePagador.CursorType = adOpenKeyset
    rsGarantePagador.Open "select * from garantePagador", conNueva, adOpenKeyset, adLockOptimistic
    
    
    'recorro los clientes, grabo los datos en las distintas tablas
    While Not rsCliente.EOF
        
    'rsPagador.ActiveConnection = conNueva
    'rsPagador.CursorType = adOpenKeyset
    rsPagador.Open "select * from pagador", conNueva, adOpenKeyset, adLockOptimistic
    
    'rsGarante.ActiveConnection = conNueva
    'rsGarante.CursorType = adOpenKeyset
    rsGarante.Open "select * from garante", conNueva, adOpenKeyset, adLockOptimistic
    
    'rsConsorcio.ActiveConnection = conNueva
    'rsConsorcio.CursorType = adOpenKeyset
    rsConsorcio.Open "select * from consorcio", conNueva, adOpenKeyset, adLockOptimistic

    'PAGADOR
        rsPagador.AddNew
        rsPagador.Fields("pagNumero") = rsCliente.Fields("nrocli")
        rsPagador.Fields("pagApellido") = Trim(rsCliente.Fields("apellido"))
        rsPagador.Fields("pagNombre") = Trim(rsCliente.Fields("nombre"))
        rsPagador.Fields("pagDomicilio") = Trim(rsCliente.Fields("domicilio"))
        rsPagador.Fields("pagBarrio") = Trim(rsCliente.Fields("barrio"))
        rsPagador.Fields("pagLocalidad") = Trim(rsCliente.Fields("localidad"))
        rsPagador.Fields("pagDocumento") = Trim(rsCliente.Fields("documento"))
        rsPagador.Fields("pagCUIT") = Trim(rsCliente.Fields("CUIT"))
        rsPagador.Fields("pagJuicio") = Trim(rsCliente.Fields("juicio"))
        rsPagador.Fields("pagActLaboral") = Trim(rsCliente.Fields("actlab"))
        rsPagador.Fields("pagEmpresa") = Trim(rsCliente.Fields("empresa"))
        rsPagador.Fields("pagLegajo") = Trim(rsCliente.Fields("leg"))
        rsPagador.Fields("pagFechaNacimiento") = Trim(rsCliente.Fields("fec_nac"))
        rsPagador.Fields("pagDomicilioEmpresa") = Trim(rsCliente.Fields("domempr"))
        rsPagador.Fields("pagTelefonoEmpresa") = Trim(rsCliente.Fields("teempre"))
        rsPagador.Fields("pagAntiguedadEmpleo") = Trim(rsCliente.Fields("anio_ant"))
        rsPagador.Fields("pagSueldo") = Trim(rsCliente.Fields("sueldo"))
        rsPagador.Fields("pagEstadoCivil") = Trim(rsCliente.Fields("estcivil"))
        rsPagador.Fields("pagNombreConyugue") = Trim(rsCliente.Fields("conyu"))
        rsPagador.Fields("pagConyugueDocumento") = Trim(rsCliente.Fields("conydni"))
        rsPagador.Fields("pagActLaboralConyugue") = Trim(rsCliente.Fields("conywrk"))
        rsPagador.Fields("pagEmpresaConyugue") = Trim(rsCliente.Fields("conyemp"))
        rsPagador.Fields("pagFechaNacConyugue") = rsCliente.Fields("conyfecnac")
        'direccion, segun se alquiler o propietario
        If rsCliente.Fields("propieta") = True Then
            rsPagador.Fields("pagDomicilioPropiedad") = Trim(rsCliente.Fields("propcalle")) & "  " & Trim(rsCliente.Fields("proploc"))
        Else
            rsPagador.Fields("pagDomicilioPropiedad") = Trim(rsCliente.Fields("alqcalle"))
        End If
        rsPagador.Fields("pagTipoPropiedad") = Trim(rsCliente.Fields("proptype"))
        If rsCliente.Fields("propieta") = True Then
            rsPagador.Fields("pagTipoTitularidad") = "T"
        Else
            rsPagador.Fields("pagTipoTitularidad") = "A"
        End If
        If rsCliente.Fields("auto") = True Then
            rsPagador.Fields("pagAutomovil") = Trim(rsCliente.Fields("automode"))
            rsPagador.Fields("pagPatenteAutomovil") = Trim(rsCliente.Fields("autodomi"))
        End If
        rsPagador.Fields("pagGrupoFamiliar") = Trim(rsCliente.Fields("grpfam"))
        rsPagador.Fields("pagPrestamosAnteriores") = Trim(rsCliente.Fields("presant"))
        rsPagador.Fields("pagReferenciasPersonales") = Trim(rsCliente.Fields("refp"))
        rsPagador.Fields("pagTelReferencia") = Trim(rsCliente.Fields("refte"))
        rsPagador.Fields("pagObservaciones") = Trim(rsCliente.Fields("observa"))
        rsPagador.Fields("pagNacionalidad") = ""
        
        'foreign keys
        'documento
        Select Case rsCliente.Fields("doctype")
            Case "DNI"
                rsPagador.Fields("pagTpdCodigo") = 1
            Case "LE"
                rsPagador.Fields("pagTpdCodigo") = 3
            Case "LC"
                rsPagador.Fields("pagTpdCodigo") = 2
        End Select
        
        'consorcio
        'rsPagador.Fields ("pagConCodigo")
        'estado activo
        rsPagador.Fields("pagEstCodigo") = 1
        'INSERTO EL REGISTRO DEL PAGADOR
        rsPagador.Update
        rsPagador.Close
        rsPagador.Open "select max(pagCodigo) from pagador", conNueva, adOpenKeyset, adLockOptimistic
        
'        rsPagador.MoveLast
        idPagador = rsPagador.Fields("max(pagCodigo)")
        rsPagador.Close
        
        'tabla telefonos
        rsTelefonos.AddNew
        rsTelefonos.Fields("pteTelefono") = rsCliente.Fields("telefono")
        rsTelefonos.Fields("pteTipoPersona") = "P"
        rsTelefonos.Fields("ptePersonaCodigo") = idPagador
        rsTelefonos.Update
    
        'CI no era, no habia
        'rsCliente.Fields ("CI")
        
    
    'GARANTE
        rsGarante.AddNew
        rsGarante.Fields("garApellido") = Trim(rsCliente.Fields("apellidog"))
        rsGarante.Fields("garNombre") = Trim(rsCliente.Fields("nombreg"))
        rsGarante.Fields("garDomicilio") = Trim(rsCliente.Fields("domiciliog"))
        rsGarante.Fields("garDocumento") = Trim(rsCliente.Fields("documentog"))
        rsGarante.Fields("garCUIT") = Trim(rsCliente.Fields("cuitg"))
        rsGarante.Fields("garFechaNacimiento") = rsCliente.Fields("fec_nacg")
        rsGarante.Fields("garLocalidad") = Trim(rsCliente.Fields("localidadg"))
        rsGarante.Fields("garActividadLaboral") = Trim(rsCliente.Fields("actlabg"))
        rsGarante.Fields("garEmpresa") = Trim(rsCliente.Fields("empresag"))
        rsGarante.Fields("garLegajo") = Trim(rsCliente.Fields("legg"))
        rsGarante.Fields("garDomicilioEmpresa") = Trim(rsCliente.Fields("domemprg"))
        rsGarante.Fields("garTelefonoEmpresa") = Trim(rsCliente.Fields("teempreg"))
        rsGarante.Fields("garAntiguedadEmpleo") = Trim(rsCliente.Fields("anio_antg"))
        rsGarante.Fields("garSueldo") = Trim(rsCliente.Fields("sueldog"))
        rsGarante.Fields("garEstadoCivil") = Trim(rsCliente.Fields("estcivilg"))
        rsGarante.Fields("garNombreConyugue") = Trim(rsCliente.Fields("conyug"))
        rsGarante.Fields("garConyugueDocumento") = Trim(rsCliente.Fields("conydnig"))
        rsGarante.Fields("garTipoPropiedad") = Trim(rsCliente.Fields("proptypeg"))
        'direccion, segun se alquiler o propietario
        If rsCliente.Fields("propietag") = True Then
            rsGarante.Fields("garDomicilioPropiedad") = Trim(rsCliente.Fields("propcalleg")) & "  " & Trim(rsCliente.Fields("proplocg"))
        Else
            rsGarante.Fields("garDomicilioPropiedad") = Trim(rsCliente.Fields("alqcalleg"))
        End If
        If rsCliente.Fields("propietag") = True Then
            rsGarante.Fields("garTipoTitularidad") = "T"
        Else
            rsGarante.Fields("garTipoTitularidad") = "A"
        End If
        If rsCliente.Fields("autog") = True Then
            rsGarante.Fields("garAutomotor") = Trim(rsCliente.Fields("automodeg"))
            rsGarante.Fields("garPatenteAutomovil") = Trim(rsCliente.Fields("autodomig"))
        End If
        rsGarante.Fields("garGrupoFamiliar") = Trim(rsCliente.Fields("grpfamg"))
        rsGarante.Fields("garReferenciasPersonales") = Trim(rsCliente.Fields("refpg"))
        rsGarante.Fields("garObservaciones") = Trim(rsCliente.Fields("observag"))
        rsGarante.Fields("garTelefonoReferencia") = Trim(rsCliente.Fields("refteg"))
        
        'foreign keys
        'documento
        Select Case rsCliente.Fields("doctypeg")
            Case "DNI"
                rsGarante.Fields("garTpdCodigo") = 1
            Case "LE"
                rsGarante.Fields("garTpdCodigo") = 3
            Case "LC"
                rsGarante.Fields("garTpdCodigo") = 2
        End Select
        
        'INSERTO EL REGISTRO DE GARANTE
        rsGarante.Update
        rsGarante.Close
        
        rsGarante.Open "select max(garCodigo) from garante", conNueva, adOpenKeyset, adLockOptimistic
        idGarante = rsGarante.Fields("max(garCodigo)")
        rsGarante.Close
        
        'tabla telefonos
        rsTelefonos.AddNew
        rsTelefonos.Fields("pteTelefono") = rsCliente.Fields("telefonog")
        rsTelefonos.Fields("pteTipoPersona") = "G"
        rsTelefonos.Fields("ptePersonaCodigo") = idGarante
        rsTelefonos.Update
    
        'no mas cedula de identidad del garante
        'rsCliente.Fields ("cig")
    
        
        'CONSORCIO
        rsConsorcio.AddNew
        rsConsorcio.Fields("conPresidente") = Trim(rsCliente.Fields("pre_consa"))
        rsConsorcio.Fields("conPresiPiso") = Trim(rsCliente.Fields("pre_conpi"))
        rsConsorcio.Fields("conPresiDepto") = Trim(rsCliente.Fields("pre_conde"))
        rsConsorcio.Fields("conTelefono") = Trim(rsCliente.Fields("pre_conte"))
        rsConsorcio.Fields("conReferenciasPersonales") = Trim(rsCliente.Fields("refppr"))
        rsConsorcio.Fields("conAdministrador") = Trim(rsCliente.Fields("vic_consa"))
        rsConsorcio.Fields("conTelefonoAdministrador") = Trim(rsCliente.Fields("vic_conte"))
        If Not IsNull(rsCliente.Fields("refpvpr")) Then
            rsConsorcio.Fields("conAdministradorDireccion") = Trim(rsCliente.Fields("refpvpr"))
        Else
            rsConsorcio.Fields("conAdministradorDireccion") = ""
        End If
        
        If Trim(rsCliente.Fields("hora_visi")) = "" Then
            rsConsorcio.Fields("conVerificaHoraVisita") = "00:00"
        Else
            'rsConsorcio.Fields("conVerificaHoraVisita") = CDate(rsCliente.Fields("hora_visi"))
            rsConsorcio.Fields("conVerificaHoraVisita") = "00:00"
        End If
        
        
        rsConsorcio.Fields("conVerificaFecha") = rsCliente.Fields("fec_visi")
        rsConsorcio.Fields("conAntiguedadEdificio") = rsCliente.Fields("ant_edif")
        rsConsorcio.Fields("conPisos") = rsCliente.Fields("pisos_edif")
        rsConsorcio.Fields("conUnidad") = rsCliente.Fields("uni_edif")
        rsConsorcio.Fields("conRealizadoPor") = Trim(rsCliente.Fields("quien_visi"))
        rsConsorcio.Fields("conLlamador") = Trim(rsCliente.Fields("ver_llama"))
        rsConsorcio.Fields("conFechaLlamado") = rsCliente.Fields("ver_fec")
        rsConsorcio.Fields("conInformante") = Trim(rsCliente.Fields("ver_infor"))
        rsConsorcio.Fields("conConceptoAdministrador") = Trim(rsCliente.Fields("ver_concep"))
    
        'INSERTO EL REGISTRO DE CONSORCIO
        rsConsorcio.Update
        rsConsorcio.Close
        
        rsConsorcio.Open "select max(conCodigo) from consorcio", conNueva, adOpenKeyset, adLockOptimistic
        idConsorcio = rsConsorcio.Fields("max(conCodigo)")
        rsConsorcio.Close
        'rsCliente.Fields ("vic_conbi")
        'rsCliente.Fields ("vic_conde")
        'rsCliente.Fields ("ver_obs")
        
        rsConsorcioPagador.AddNew
        rsConsorcioPagador.Fields("copConCodigo") = idConsorcio
        rsConsorcioPagador.Fields("copPagCodigo") = idPagador
        rsConsorcioPagador.Update
        
        rsGarantePagador.AddNew
        rsGarantePagador.Fields("gapPagCodigo") = idPagador
        rsGarantePagador.Fields("gapGarCodigo") = idGarante
        rsGarantePagador.Update
    
        rsCliente.MoveNext
    Wend


End Sub



Private Sub conectar()
    Set conn = New ADODB.Connection
    cadena_conexion = "DRIVER={MySQL ODBC 5.1 Driver}; " _
     & "SERVER=localhost;DATABASE=jl;" _
     & "PWD=vaca;UID=root;OPTION=3"

    conn.ConnectionString = cadena_conexion
    conn.Open
    Set conVieja = conn
    
    
    Set conn1 = New ADODB.Connection
    cadena_conexion = "DRIVER={MySQL ODBC 5.1 Driver}; " _
     & "SERVER=localhost;DATABASE=nuevoJL;" _
     & "PWD=vaca;UID=root;OPTION=3"
     
    conn1.ConnectionString = cadena_conexion
    conn1.Open
    Set conNueva = conn1
    

    'conNueva.CursorLocation = adOpenKeyset
    'conVieja.CursorLocation = adUseClient
End Sub

Private Sub cmdTraspasoCliente_Click()
    cliente
End Sub

Private Sub Form_Load()
    conectar
End Sub
